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REPORT ZANZA ВАРІ SAP1. 


TYPES : BEGIN OF TY_BNKA, 
BANKS TYPE BNKA-BANKS, 
BANKL TYPE BNKA-BANKL, 
STRAS TYPE BNKA-STRAS, 
ОКТО1 TYPE ВМКА-ОКТО1, 


END OF TY_BNKA. 


data :it bnka TYPE TABLE OF ty_bnka, 
ма bnka ТҮРЕ ty_bnka, 
BANK ADDRESS TYPE ВАРІ1011 ADDRESS, 
RETURN TYPE BAPIRET2. 


CALL FUNCTION 'GUI UPLOAD' 
EXPORTING 
FILENAME 'E:/bapi/anz.txt' 
FILETYPE 'ASC' 
HAS FIELD SEPARATOR = 'T' 
HEADER LENGTH 0 
READ BY _ LINE 'Х' 
DAT MODE ГЕ 
СОРЕРАСЕ 
ІСМОАЕ СЕВА 
REPLACEMENT 
CHECK ВОМ 
VIRUS SCAN PROFILE 
NO AUTH CHECK 
IMPORTING 
FILELENGTH 
HEADER 
TABLES 
DATA TAB 
EXCEPTIONS 
FILE OPEN_ERROR 
FILE READ ERROR 
NO ВАТСН 
GUI REFUSE FILETRANSFER 
INVALID TYPE 
NO AUTHORITY 
UNKNOWN ERROR 
BAD РАТА FORMAT 
HEADER NOT ALLOWED 
SEPARATOR NOT ALLOWED 
HEADER ТОО LONG 
UNKNOWN DP ERROR 
ACCESS DENIED 
DP OUT OF MEMORY 
DISK FULL 
DP TIMEOUT 
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IF SY-SUBRC = 0. 
MESSAGE ' SUCCESSFULLY UPLOAD' TYPE '5'. 
ENDIF. 
LOOP AT IT BNKA INTO WA BNKA. 
bank _address-bank name = МА BNKA-BANKL. 
BANK ADDRESS-STREET = ма _bnka-stras. 
bank_address-city = ма _bnka-ort01. 


САП. FUNCTION 'ВАРІ BANK САЕАТЕ' 


EXPORTING 
BANK_CTRY = WA_BNKA-BANKS 
BANK KEY = WA BNKA-BANKL 


BANK ADDRESS BANK_ADDRESS 


* BANK METHOD = 
* BANK FORMATTING = 
* BANK ADDRESS1 = 
* I XUPDATE = 'X' 
IMPORTING 
RETURN = RETURN 
* BANKCOUNTRY = 
* BANKKEY = 
IF RETURN IS INITIAL . 
WRITE:/ 'BANK' , МА BNKA-BANKL ,'CREATR SUCCESSFULLY' COLOR 4. 
COMMIT WORK. 
ELSE. 
WRITE RETURN-MESSAGE COLOR 3. 
ENDIF. 
ENDLO00P. 
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REPORT ZANZA REP_VIA ВАРІ SAP1. 


data: it ekko TYPE TABLE OF ekko, 
ма екко TYPE ekko, 
it item TYPE TABLE OF BAPIEKPOC , 
WA ITEM TYPE BAPIEKPOC. 


select * into TABLE ії екко FROM екко UP ТО 10 ROWS. 


loop at it_ekko into ма ekko. 
WRITE : / ма екко-ере1п COLOR 5. 
hide wa_ekko-ebeln. 
ENDLO0P. 


AT LINE-SELECTION. 


CALL FUNCTION 'BAPI PO GETITEMS' 

EXPORTING 
PURCHASEORDER 
DOC TYPE 
DOC DATE 
PUR GROUP 
PURCH ОВС 
VENDOR 
SUPPL PLANT 
MATERIAL 
MAT GRP 
ITEM CAT 
ACCTASSCAT 
PLANT 
TRACKINGNO 
SHORT TEXT 
CREATED BY 
PREQ NAME 
WITH PO HEADERS 
DELETED ITEMS 
ITEMS OPEN FOR RECEIPT 
PUR MAT 
MATERIAL EVG 
PUR MAT EVG 

TABLES 
* РО НЕАРЕВЅ 
РО ITEMS 
* RETURN 
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LOOP AT IT ITEM INTO WA ITEM. 


WRITE :/ МА ІТЕМ-РО ІТЕМ COLOR 
МЕТ РАІСЕ COLOR 7. 


ENDLO0P. 


ма екко-ере1п 
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it_item 
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